home *** CD-ROM | disk | FTP | other *** search
/ Run Magazine ReRun 1984 Half 1 / rerun-1984-01-06-side-b.d64 / repeat may p82 (.txt) < prev    next >
Commodore BASIC  |  2022-09-20  |  3KB  |  105 lines
  1. 5 rem repeat the sequence c.1982 zoltan szepesi
  2. 10 rem 2611 saybrook drive  pittsburgh,pa 15235
  3. 14 rem**initialisation*****************
  4. 15 poke53281,0:dimk(32):g=0:tt=0:print""
  5. 20 print"[147]**four ways to play:                        1.own made sequence"
  6. 25 print"    2.repeating sequence
  7. 30 [153]"    3.changing sequence                     4.single flashes"
  8. 35 [153]"**press the number:";
  9. 40 [161]a$:[139]a$[178]""[167]40
  10. 45 x[178][197](a$):[153]x
  11. 50 [153]"**for increasing difficulty level         press f1, f3,f5 or f7"
  12. 55 [161]a$:[139]a$[178]""[167]55
  13. 60 [139]a$[178][199](133)[167]t1[178]100:n1[178]4:t2[178]5
  14. 65 [139]a$[178][199](134)[167]t1[178]50:n1[178]8:t2[178]3
  15. 70 [139]a$[178][199](135)[167]t1[178]10:n1[178]16:t2[178]2
  16. 75 [139]a$[178][199](136)[167]t1[178]1:n1[178]32:t2[178]1
  17. 80 b$[178]"clr":c$[178]"  purple   green   blue   sysyellow"
  18. 85 v[178]54296:wa[178]54276:a[178]54277:sr[178]54278:hf[178]54273:lf[178]54272
  19. 90 ph[178]54275:pl[178]54274:s[178]1227:co[178]55499
  20. 95 nm[178]1:g[178]g[170]1:q[178]0
  21. 100 [153]"load"b$c$:w[178][187]([171]ti)
  22. 105 [145]x[137]200,250,300,350
  23. 199 [143]**own made sequences************
  24. 200 [153]"c-64 gives the first   color":n[178]1:k(1)[178][181]([187](1)[172]4):[141]400
  25. 205 [141]450:[139]q[179][177]0[167]700
  26. 210 nm[178]nm[170]1:n[178]nm:[153]"add a new color":t3[178]ti
  27. 215 [161]a$:[139]a$[178]""[175]ti[171]t3[179]t2[172]60[167]215
  28. 220 [139]ti[171]t3[177]t2[172]50[167]500
  29. 225 k(n)[178][197](a$)[171]5:[141]400:[141]450:[139]q[179][177]0[167]700
  30. 230 [137]210
  31. 249 [143]**repeating sequences***********
  32. 250 [153]"c-64 gives the sequence":n[178]nm:k(n)[178][181]([187](1)[172]4):[141]400
  33. 255 [141]450:[139]q[179][177]0[167]700
  34. 260 [129]i[178]1[164]800:[130]
  35. 265 [129]n[178]1[164]nm:[153]"c-64 gives the sequence":[141]400:[130]n
  36. 270 nm[178]nm[170]1:[137]250
  37. 275 [129]i[178]1[164]800:[130]
  38. 299 [143]**changing sequences************
  39. 300 [129]n[178]1[164]nm:[153]"c-64 gives the sequence":k(n)[178][181]([187](1)[172]4)
  40. 305 [141]400:[130]n:[141]450:[139]q[179][177]0[167]700
  41. 310 [129]i[178]1[164]800:[130]i:nm[178]nm[170]1:[137]300
  42. 349 [143]**single flashes****************
  43. 350 p[178]1
  44. 355 t2[178]1:n[178]1:k(n)[178][181]([187](1)[172]4):[141]400:[141]450:[139]q[179][177]0[167]700
  45. 360 [129]i[178]1[164]400:[130]i:nm[178]1:n[178]1:p[178]p[170]1:[137]355
  46. 399 [143]**flashing color and sound******
  47. 400 [151]v,15:[151]a,0:[151]sr,240:[151]hf,20[170]k(n)[172]5:[151]lf,10:[151]wa,17
  48. 405 [153]""b$[170]"step number:";:[139]x[178]4[167][153]p:[137]415
  49. 410 [153]n
  50. 415 [129]j[178]0[164]3:[129]l[178]co[170]j[172]40[170]8[172]k(n)[164]l[170]4:[151]l,k(n)[170]4:[130]l,j
  51. 420 [129]j[178]0[164]3:[129]i[178]s[170]j[172]40[170]8[172]k(n)[164]i[170]4:[151]i,160:[130]i,j
  52. 425 [129]j[178]0[164]t1:[130]j:[151]wa,16
  53. 430 [153]"load"b$c$
  54. 435 [142]
  55. 449 [143]**repeat the sequence***********
  56. 450 [129]n[178]1[164]nm:[153]"repeat the sequence":t3[178]ti
  57. 455 [161]a$:[139]a$[178]""[175]ti[171]t3[179]t2[172]60[167]455
  58. 460 [139]ti[171]t3[177]t2[172]55[167]q[178]1:[142]
  59. 465 y[178][197](a$):[139]y[171]5[179][177]k(n)[167]q[178]2:[142]
  60. 470 [139]y[171]5[178]k(n)[167][141]400:[130]n
  61. 475 [139]x[178]4[167]n[178]p[170]1
  62. 480 [139]n[178]n1[170]1[167]q[178]3:[142]
  63. 485 [142]
  64. 499 [143] error messages*****************
  65. 500 [153]"load*you lost-you were not fast enough":[137]515
  66. 510 [153]"load**error-you lost"
  67. 515 ns[178]1:[129]n[178]1[164]1:[130]n:[139]x[178]4[167]nm[178]p
  68. 520 [153]" "nm[171]1"steps were correct":[153]"  no. of games:"g
  69. 524 [143] **5-th symphony****************
  70. 525 [129]l[178]54272[164]54296:[151]l,0:[130]
  71. 530 [151]v,15:[151]a,0:[151]sr,240:[140]
  72. 535 [135]h:[139]h[178][171]1[167][129]l[178]54272[164]54296:[151]l,0:[130]:[137]600
  73. 540 [135]l:[135]d:[151]hf,h:[151]lf,l:[151]wa,17:[139]ns[178]1[167][151]wa,129
  74. 545 [129]t[178]1[164]d:[130]:[151]wa,16:[139]ns[178]1[167][151]wa,128
  75. 550 [129]t[178]1[164]50:[130]:[137]535
  76. 555 [131]25,177,100,25,177,100,25,177,100,20,100,800,0,0,250
  77. 560 [131]22,227,100,22,227,100,22,227,100,19,63,800,-1
  78. 565 [143]**correctly finished************
  79. 570 [153]"load**congratulations.you finished            with"n1;"points."
  80. 575 [153]"  no. of games:"g:tt[178]tt[170]n1:[153]"**your total is:"tt"points":ns[178]0
  81. 580 [137]525
  82. 599 [143]**see the last sequence*********
  83. 600 [139]x[178]3[176]x[178]4[167]650
  84. 605 [139]nm[178]1[175](x[178]1[176]x[178]2)[167]650
  85. 610 [153]"**do you want to see the last             sequence (y/n)?"
  86. 615 [161]a$:[139]a$[178]""[167]615
  87. 620 [139]a$[179][177]"y"[175]a$[179][177]"n"[167]615
  88. 625 [139]a$[178]"y"[167] [153]"load"b$c$
  89. 630 [139]a$[178]"n"[167]650
  90. 635 [139]n[178]n1[170]1[167]nm[178]nm[170]1
  91. 640 [129]n[178]1[164]nm[171]1:[141]400:[130]n
  92. 649 [143]**want to continue?*************
  93. 650 [153]"load*do you want to                            1.continue same way"
  94. 655 [153]"   2.continue with changed conditions      3.finish."
  95. 657 [153] "*press the number"
  96. 660 [161]a$:[139]a$[178]""[167]660
  97. 665 y[178][197](a$):[139]y[179][177]1[175]y[179][177]2[175]y[179][177]3[167]660
  98. 670 [145]y[137]95,675,680
  99. 675 [137]20
  100. 680 [151]v,0:[151]wa,0:[128]
  101. 699 [143]**for stack clearing************
  102. 700 [139]q[178]1[167]q[178]0:[137]500
  103. 705 [139]q[178]2[167]q[178]0:[137]510
  104. 710 [139]q[178]3[167]q[178]0:[137]570
  105.